home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / color.swg / 0019_Complete color constants.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-18  |  11.4 KB  |  331 lines
  1.  
  2. UNIT HTcolors;
  3.  
  4. { Complete set of all color attributes contants by their own names.
  5.   Part of the Heartware Toolkit v2.00 (HTcolors.PAS) for Turbo Pascal.
  6.   Author: Jose Almeida. P.O.Box 4185. 1504 Lisboa Codex. Portugal.
  7.           I can also be reached at RIME network, site ->TIB or #5314.
  8.   Feel completely free to use this source code in any way you want, and, if
  9.   you do, please don't forget to mention my name, and, give me and Swag the
  10.   proper credits. }
  11.  
  12. INTERFACE
  13.  
  14. const
  15.  
  16.   { black background }
  17.  
  18.   BlackOnBlack            : byte = $00;
  19.   BlueOnBlack             : byte = $01;
  20.   GreenOnBlack            : byte = $02;
  21.   CyanOnBlack             : byte = $03;
  22.   RedOnBlack              : byte = $04;
  23.   MagentaOnBlack          : byte = $05;
  24.   BrownOnBlack            : byte = $06;
  25.   LtGrayOnBlack           : byte = $07;
  26.   DkGrayOnBlack           : byte = $08;
  27.   LtBlueOnBlack           : byte = $09;
  28.   LtGreenOnBlack          : byte = $0A;
  29.   LtCyanOnBlack           : byte = $0B;
  30.   LtRedOnBlack            : byte = $0C;
  31.   LtMagentaOnBlack        : byte = $0D;
  32.   YellowOnBlack           : byte = $0E;
  33.   WhiteOnBlack            : byte = $0F;
  34.  
  35.   { blue background }
  36.  
  37.   BlackOnBlue             : byte = $10;
  38.   BlueOnBlue              : byte = $11;
  39.   GreenOnBlue             : byte = $12;
  40.   CyanOnBlue              : byte = $13;
  41.   RedOnBlue               : byte = $14;
  42.   MagentaOnBlue           : byte = $15;
  43.   BrownOnBlue             : byte = $16;
  44.   LtGrayOnBlue            : byte = $17;
  45.   DkGrayOnBlue            : byte = $18;
  46.   LtBlueOnBlue            : byte = $19;
  47.   LtGreenOnBlue           : byte = $1A;
  48.   LtCyanOnBlue            : byte = $1B;
  49.   LtRedOnBlue             : byte = $1C;
  50.   LtMagentaOnBlue         : byte = $1D;
  51.   YellowOnBlue            : byte = $1E;
  52.   WhiteOnBlue             : byte = $1F;
  53.  
  54.   { green background }
  55.  
  56.   BlackOnGreen            : byte = $20;
  57.   BlueOnGreen             : byte = $21;
  58.   GreenOnGreen            : byte = $22;
  59.   CyanOnGreen             : byte = $23;
  60.   RedOnGreen              : byte = $24;
  61.   MagentaOnGreen          : byte = $25;
  62.   BrownOnGreen            : byte = $26;
  63.   LtGrayOnGreen           : byte = $27;
  64.   DkGrayOnGreen           : byte = $28;
  65.   LtBlueOnGreen           : byte = $29;
  66.   LtGreenOnGreen          : byte = $2A;
  67.   LtCyanOnGreen           : byte = $2B;
  68.   LtRedOnGreen            : byte = $2C;
  69.   LtMagentaOnGreen        : byte = $2D;
  70.   YellowOnGreen           : byte = $2E;
  71.   WhiteOnGreen            : byte = $2F;
  72.  
  73.   { cyan background }
  74.  
  75.   BlackOnCyan             : byte = $30;
  76.   BlueOnCyan              : byte = $31;
  77.   GreenOnCyan             : byte = $32;
  78.   CyanOnCyan              : byte = $33;
  79.   RedOnCyan               : byte = $34;
  80.   MagentaOnCyan           : byte = $35;
  81.   BrownOnCyan             : byte = $36;
  82.   LtGrayOnCyan            : byte = $37;
  83.   DkGrayOnCyan            : byte = $38;
  84.   LtBlueOnCyan            : byte = $39;
  85.   LtGreenOnCyan           : byte = $3A;
  86.   LtCyanOnCyan            : byte = $3B;
  87.   LtRedOnCyan             : byte = $3C;
  88.   LtMagentaOnCyan         : byte = $3D;
  89.   YellowOnCyan            : byte = $3E;
  90.   WhiteOnCyan             : byte = $3F;
  91.  
  92.   { red background }
  93.  
  94.   BlackOnRed              : byte = $40;
  95.   BlueOnRed               : byte = $41;
  96.   GreenOnRed              : byte = $42;
  97.   CyanOnRed               : byte = $43;
  98.   RedOnRed                : byte = $44;
  99.   MagentaOnRed            : byte = $45;
  100.   BrownOnRed              : byte = $46;
  101.   LtGrayOnRed             : byte = $47;
  102.   DkGrayOnRed             : byte = $48;
  103.   LtBlueOnRed             : byte = $49;
  104.   LtGreenOnRed            : byte = $4A;
  105.   LtCyanOnRed             : byte = $4B;
  106.   LtRedOnRed              : byte = $4C;
  107.   LtMagentaOnRed          : byte = $4D;
  108.   YellowOnRed             : byte = $4E;
  109.   WhiteOnRed              : byte = $4F;
  110.  
  111.   { magenta background }
  112.  
  113.   BlackOnMagenta          : byte = $50;
  114.   BlueOnMagenta           : byte = $51;
  115.   GreenOnMagenta          : byte = $52;
  116.   CyanOnMagenta           : byte = $53;
  117.   RedOnMagenta            : byte = $54;
  118.   MagentaOnMagenta        : byte = $55;
  119.   BrownOnMagenta          : byte = $56;
  120.   LtGrayOnMagenta         : byte = $57;
  121.   DkGrayOnMagenta         : byte = $58;
  122.   LtBlueOnMagenta         : byte = $59;
  123.   LtGreenOnMagenta        : byte = $5A;
  124.   LtCyanOnMagenta         : byte = $5B;
  125.   LtRedOnMagenta          : byte = $5C;
  126.   LtMagentaOnMagenta      : byte = $5D;
  127.   YellowOnMagenta         : byte = $5E;
  128.   WhiteOnMagenta          : byte = $5F;
  129.  
  130.   { brown background }
  131.  
  132.   BlackOnBrown            : byte = $60;
  133.   BlueOnBrown             : byte = $61;
  134.   GreenOnBrown            : byte = $62;
  135.   CyanOnBrown             : byte = $63;
  136.   RedOnBrown              : byte = $64;
  137.   MagentaOnBrown          : byte = $65;
  138.   BrownOnBrown            : byte = $66;
  139.   LtGrayOnBrown           : byte = $67;
  140.   DkGrayOnBrown           : byte = $68;
  141.   LtBlueOnBrown           : byte = $69;
  142.   LtGreenOnBrown          : byte = $6A;
  143.   LtCyanOnBrown           : byte = $6B;
  144.   LtRedOnBrown            : byte = $6C;
  145.   LtMagentaOnBrown        : byte = $6D;
  146.   YellowOnBrown           : byte = $6E;
  147.   WhiteOnBrown            : byte = $6F;
  148.  
  149.   { light gray background }
  150.  
  151.   BlackOnLtGray           : byte = $70;
  152.   BlueOnLtGray            : byte = $71;
  153.   GreenOnLtGray           : byte = $72;
  154.   CyanOnLtGray            : byte = $73;
  155.   RedOnLtGray             : byte = $74;
  156.   MagentaOnLtGray         : byte = $75;
  157.   BrownOnLtGray           : byte = $76;
  158.   LtGrayOnLtGray          : byte = $77;
  159.   DkGrayOnLtGray          : byte = $78;
  160.   LtBlueOnLtGray          : byte = $79;
  161.   LtGreenOnLtGray         : byte = $7A;
  162.   LtCyanOnLtGray          : byte = $7B;
  163.   LtRedOnLtGray           : byte = $7C;
  164.   LtMagentaOnLtGray       : byte = $7D;
  165.   YellowOnLtGray          : byte = $7E;
  166.   WhiteOnLtGray           : byte = $7F;
  167.  
  168.   {·········································································}
  169.  
  170.   { black background blinking }
  171.  
  172.   BlackOnBlackBlink       : byte = $80;
  173.   BlueOnBlackBlink        : byte = $81;
  174.   GreenOnBlackBlink       : byte = $82;
  175.   CyanOnBlackBlink        : byte = $83;
  176.   RedOnBlackBlink         : byte = $84;
  177.   MagentaOnBlackBlink     : byte = $85;
  178.   BrownOnBlackBlink       : byte = $86;
  179.   LtGrayOnBlackBlink      : byte = $87;
  180.   DkGrayOnBlackBlink      : byte = $88;
  181.   LtBlueOnBlackBlink      : byte = $89;
  182.   LtGreenOnBlackBlink     : byte = $8A;
  183.   LtCyanOnBlackBlink      : byte = $8B;
  184.   LtRedOnBlackBlink       : byte = $8C;
  185.   LtMagentaOnBlackBlink   : byte = $8D;
  186.   YellowOnBlackBlink      : byte = $8E;
  187.   WhiteOnBlackBlink       : byte = $8F;
  188.  
  189.   { blue background blinking }
  190.  
  191.   BlackOnBlueBlink        : byte = $90;
  192.   BlueOnBlueBlink         : byte = $91;
  193.   GreenOnBlueBlink        : byte = $92;
  194.   CyanOnBlueBlink         : byte = $93;
  195.   RedOnBlueBlink          : byte = $94;
  196.   MagentaOnBlueBlink      : byte = $95;
  197.   BrownOnBlueBlink        : byte = $96;
  198.   LtGrayOnBlueBlink       : byte = $97;
  199.   DkGrayOnBlueBlink       : byte = $98;
  200.   LtBlueOnBlueBlink       : byte = $99;
  201.   LtGreenOnBlueBlink      : byte = $9A;
  202.   LtCyanOnBlueBlink       : byte = $9B;
  203.   LtRedOnBlueBlink        : byte = $9C;
  204.   LtMagentaOnBlueBlink    : byte = $9D;
  205.   YellowOnBlueBlink       : byte = $9E;
  206.   WhiteOnBlueBlink        : byte = $9F;
  207.  
  208.   { green background blinking }
  209.  
  210.   BlackOnGreenBlink       : byte = $A0;
  211.   BlueOnGreenBlink        : byte = $A1;
  212.   GreenOnGreenBlink       : byte = $A2;
  213.   CyanOnGreenBlink        : byte = $A3;
  214.   RedOnGreenBlink         : byte = $A4;
  215.   MagentaOnGreenBlink     : byte = $A5;
  216.   BrownOnGreenBlink       : byte = $A6;
  217.   LtGrayOnGreenBlink      : byte = $A7;
  218.   DkGrayOnGreenBlink      : byte = $A8;
  219.   LtBlueOnGreenBlink      : byte = $A9;
  220.   LtGreenOnGreenBlink     : byte = $AA;
  221.   LtCyanOnGreenBlink      : byte = $AB;
  222.   LtRedOnGreenBlink       : byte = $AC;
  223.   LtMagentaOnGreenBlink   : byte = $AD;
  224.   YellowOnGreenBlink      : byte = $AE;
  225.   WhiteOnGreenBlink       : byte = $AF;
  226.  
  227.   { cyan background blinking }
  228.  
  229.   BlackOnCyanBlink        : byte = $B0;
  230.   BlueOnCyanBlink         : byte = $B1;
  231.   GreenOnCyanBlink        : byte = $B2;
  232.   CyanOnCyanBlink         : byte = $B3;
  233.   RedOnCyanBlink          : byte = $B4;
  234.   MagentaOnCyanBlink      : byte = $B5;
  235.   BrownOnCyanBlink        : byte = $B6;
  236.   LtGrayOnCyanBlink       : byte = $B7;
  237.   DkGrayOnCyanBlink       : byte = $B8;
  238.   LtBlueOnCyanBlink       : byte = $B9;
  239.   LtGreenOnCyanBlink      : byte = $BA;
  240.   LtCyanOnCyanBlink       : byte = $BB;
  241.   LtRedOnCyanBlink        : byte = $BC;
  242.   LtMagentaOnCyanBlink    : byte = $BD;
  243.   YellowOnCyanBlink       : byte = $BE;
  244.   WhiteOnCyanBlink        : byte = $BF;
  245.  
  246.   { red background blinking }
  247.  
  248.   BlackOnRedBlink         : byte = $C0;
  249.   BlueOnRedBlink          : byte = $C1;
  250.   GreenOnRedBlink         : byte = $C2;
  251.   CyanOnRedBlink          : byte = $C3;
  252.   RedOnRedBlink           : byte = $C4;
  253.   MagentaOnRedBlink       : byte = $C5;
  254.   BrownOnRedBlink         : byte = $C6;
  255.   LtGrayOnRedBlink        : byte = $C7;
  256.   DkGrayOnRedBlink        : byte = $C8;
  257.   LtBlueOnRedBlink        : byte = $C9;
  258.   LtGreenOnRedBlink       : byte = $CA;
  259.   LtCyanOnRedBlink        : byte = $CB;
  260.   LtRedOnRedBlink         : byte = $CC;
  261.   LtMagentaOnRedBlink     : byte = $CD;
  262.   YellowOnRedBlink        : byte = $CE;
  263.   WhiteOnRedBlink         : byte = $CF;
  264.  
  265.   { magenta background blinking }
  266.  
  267.   BlackOnMagentaBlink     : byte = $D0;
  268.   BlueOnMagentaBlink      : byte = $D1;
  269.   GreenOnMagentaBlink     : byte = $D2;
  270.   CyanOnMagentaBlink      : byte = $D3;
  271.   RedOnMagentaBlink       : byte = $D4;
  272.   MagentaOnMagentaBlink   : byte = $D5;
  273.   BrownOnMagentaBlink     : byte = $D6;
  274.   LtGrayOnMagentaBlink    : byte = $D7;
  275.   DkGrayOnMagentaBlink    : byte = $D8;
  276.   LtBlueOnMagentaBlink    : byte = $D9;
  277.   LtGreenOnMagentaBlink   : byte = $DA;
  278.   LtCyanOnMagentaBlink    : byte = $DB;
  279.   LtRedOnMagentaBlink     : byte = $DC;
  280.   LtMagentaOnMagentaBlink : byte = $DD;
  281.   YellowOnMagentaBlink    : byte = $DE;
  282.   WhiteOnMagentaBlink     : byte = $DF;
  283.  
  284.   { brown background blinking }
  285.  
  286.   BlackOnBrownBlink       : byte = $E0;
  287.   BlueOnBrownBlink        : byte = $E1;
  288.   GreenOnBrownBlink       : byte = $E2;
  289.   CyanOnBrownBlink        : byte = $E3;
  290.   RedOnBrownBlink         : byte = $E4;
  291.   MagentaOnBrownBlink     : byte = $E5;
  292.   BrownOnBrownBlink       : byte = $E6;
  293.   LtGrayOnBrownBlink      : byte = $E7;
  294.   DkGrayOnBrownBlink      : byte = $E8;
  295.   LtBlueOnBrownBlink      : byte = $E9;
  296.   LtGreenOnBrownBlink     : byte = $EA;
  297.   LtCyanOnBrownBlink      : byte = $EB;
  298.   LtRedOnBrownBlink       : byte = $EC;
  299.   LtMagentaOnBrownBlink   : byte = $ED;
  300.   YellowOnBrownBlink      : byte = $EE;
  301.   WhiteOnBrownBlink       : byte = $EF;
  302.  
  303.   { light gray background blinking }
  304.  
  305.   BlackOnLtGrayBlink      : byte = $F0;
  306.   BlueOnLtGrayBlink       : byte = $F1;
  307.   GreenOnLtGrayBlink      : byte = $F2;
  308.   CyanOnLtGrayBlink       : byte = $F3;
  309.   RedOnLtGrayBlink        : byte = $F4;
  310.   MagentaOnLtGrayBlink    : byte = $F5;
  311.   BrownOnLtGrayBlink      : byte = $F6;
  312.   LtGrayOnLtGrayBlink     : byte = $F7;
  313.   DkGrayOnLtGrayBlink     : byte = $F8;
  314.   LtBlueOnLtGrayBlink     : byte = $F9;
  315.   LtGreenOnLtGrayBlink    : byte = $FA;
  316.   LtCyanOnLtGrayBlink     : byte = $FB;
  317.   LtRedOnLtGrayBlink      : byte = $FC;
  318.   LtMagentaOnLtGrayBlink  : byte = $FD;
  319.   YellowOnLtGrayBlink     : byte = $FE;
  320.   WhiteOnLtGrayBlink      : byte = $FF;
  321.  
  322.  
  323.  
  324. IMPLEMENTATION
  325.  
  326.  
  327.  
  328. END. { HTcolors.PAS }
  329.  
  330.  
  331.